home *** CD-ROM | disk | FTP | other *** search
/ Ahoy 1986 June / Ahoy_Magazine_86-06_1986_Double_L.d64 / menu c-64 (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  910b  |  29 lines
  1. 100 poke53280,0:poke53281,0
  2. 110 gosub1000
  3. 120 l$=""
  4. 140 print"[147]":fori=1to5:printtab(11)a$(i):next:ta=11
  5. 150 a=a+1:b=b+1:readpr$:ifa>9thenta=10
  6. 160 printleft$(l$,b+7)tab(ta)"[158]"a"[156]-"pr$
  7. 165 ifb=12then175
  8. 170 goto 150
  9. 175 ifa>=12thenrestore:a=0
  10. 190 printleft$(l$,24)tab(7)"[159](c) ion international inc"
  11. 200 printleft$(l$,21)tab(9)" return [146][158] or choose no.";
  12. 210 poke198,0:inputan$:an=val(an$):b=0
  13. 215 ifan$=""then140
  14. 225 restore:forch=1toan:readpr$:next
  15. 230 print"[147]":poke53280,0:poke53281,0
  16. 235 printleft$(l$,15)tab(10)"[156][204]oading "pr$"[144]"
  17. 240 print "load";chr$(34);pr$;chr$(34);",8,1"
  18. 250 print "run":print "[145][145][145][145][145][145][145][145][145]"
  19. 260 poke 631,13:poke 632,13:poke 198,2:end
  20. 500 data 64 bug rep,128 bug rep,lazy boot,music boot,swoop boot,got a match
  21. 510 data star strike,trackdown 64,trackdown vic,chess tour 128,shaker boot
  22. 520 data comal 64 boot
  23. 1000 a$(1)="[207][205][206][183][205][207][183][183][205][207][205] [207][205][207][205][207][205]"
  24. 1010 a$(2)="[180] [223][169] [146][180]   [146][180] [223][146][180] [146][180] [146][180] "
  25. 1020 a$(3)="[180] [146][223][169] [146][180] [146][205] [180] [146][223][223] [146][180] [146][180] "
  26. 1030 a$(4)="[180] [146] [180] [146][180] [175][146][205][180] [146][205][223] [146][180] [146][180] "
  27. 1040 a$(5)="[205] [146] [205] [146][205]   [146][205] [146] [205] [146][205]   "
  28. 1100 return
  29.